/* Zatok - язык программирования текстовых игр
 * (С) 2010 - 2012 Меркулов Матвей Юрьевич
 * Код лицензирован под лицензией GNU LGPL
 * Вы можете прочитать текст лицензии по адресу:
 * http://www.gnu.org/copyleft/lesser.html
 * или прочитать русский перевод по адресу:
 * http://ru.wikisource.org/wiki/GNU_Lesser_General_Public_License
 */

package base.list;

import base.CProject;
import base.module.CModule;

public class CRemoveCurrentObject extends CModule {
	@Override
	public void Init() {
		AssertParam( 0 );
	}

	
	
	@Override
	public void Execute() {
		if( CProject.CurrentObjectIterator == null ) {
			if( CProject.CurrentListIterator == null ) Error( "Команда удаления текущего объекта вне цикла" );
			CProject.CurrentListIterator.remove();
		} else {
			CProject.CurrentObjectIterator.remove();
			CProject.CurrentIteratingObject.Parent = CProject.Null;
		}
	}
}
